home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / DEMOS.EXE / SORT.BAS < prev    next >
BASIC Source File  |  1990-06-16  |  768b  |  17 lines
  1. 00010 REM ANY ARRAY TYPE MAY BE USED
  2. 00020 REM IF YOU WANT SA(500) TO BE A STRING ARRAY, USE DEFSTR S ON THIS LINE
  3. 00030 REM IF STRINGS ARE USED, SET THE LENGTH OF SA(500) WITH DEFLEN=30 OR WHATEVER
  4. 00040 DIM SA(500),L(30),R(30):REM L AND R ARE USED IN QUICK SORT ONLY
  5. 00050 NI = 500:REM CHANGE DIM 500 AND THIS 500 IF ARRAY SORT LARGER
  6. 00060 FOR X = 0 TO NI
  7. 00070   SA(X)=RND(1000):REM STORES RANDOM NUMBERS FOR SORTING
  8. 00080   REM:SA(X)=STRING$(RND(20),RND(60)+32) ONLY IF SA() IS A STRING ARRAY
  9. 00090 NEXT
  10. 00100 PRINT "START TIME: ";TIME$
  11. 00110 GOSUB "QUICK SORT"  :REM OR SHELL SORT
  12. 00120 PRINT "FINISH TIME: ";TIME$
  13. 00130 FOR X=NI-10 TO NI
  14. 00140   PRINT SA(X):REM PRINT LAST 10 ELEMENTS TO MAKE SURE SORT WORKED
  15. 00150 NEXT
  16. 00160 END
  17.